home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / HENSA / MISC / BASICLIB.ARC / !BasicLib_FloatCirc < prev   
Unknown  |  1991-06-22  |  2.1 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% xdgMime image/x-tga default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 20 3e 3c | 42 61 73 69 63 4c 69 62 |..... ><|BasicLib|
|00000010| 24 44 69 72 3e 2e 46 6c | 6f 61 74 43 69 72 63 0d |$Dir>.Fl|oatCirc.|
|00000020| 00 14 19 f4 20 46 6c 6f | 61 74 69 6e 67 20 70 6f |.... Flo|ating po|
|00000030| 69 6e 74 20 64 65 6d 6f | 0d 00 1e 3b f4 20 44 72 |int demo|...;. Dr|
|00000040| 61 77 73 20 61 20 63 69 | 72 63 6c 65 2c 20 72 61 |aws a ci|rcle, ra|
|00000050| 64 69 75 73 20 69 6e 20 | 52 30 2c 20 63 65 6e 74 |dius in |R0, cent|
|00000060| 72 65 20 78 20 69 6e 20 | 52 31 2c 20 79 20 69 6e |re x in |R1, y in|
|00000070| 20 52 32 0d 00 28 04 0d | 00 32 20 c8 9b 20 22 3c | R2..(..|.2 .. "<|
|00000080| 42 61 73 69 63 4c 69 62 | 24 44 69 72 3e 2e 46 6c |BasicLib|$Dir>.Fl|
|00000090| 6f 61 74 41 73 73 22 0d | 00 3c 04 0d 00 46 12 de |oatAss".|.<...F..|
|000000a0| 20 63 69 72 63 6c 65 20 | 26 31 30 30 30 0d 00 50 | circle |&1000..P|
|000000b0| 12 72 61 64 69 75 73 3d | 30 3a 72 73 71 3d 30 0d |.radius=|0:rsq=0.|
|000000c0| 00 5a 1b 78 70 6c 6f 74 | 3d 31 3a 79 70 6c 6f 74 |.Z.xplot|=1:yplot|
|000000d0| 3d 32 3a 78 3d 33 3a 79 | 3d 34 0d 00 64 17 78 63 |=2:x=3:y|=4..d.xc|
|000000e0| 65 6e 74 72 65 3d 35 3a | 79 63 65 6e 74 72 65 3d |entre=5:|ycentre=|
|000000f0| 36 0d 00 6e 0b 6c 69 6e | 6b 3d 31 34 0d 00 78 04 |6..n.lin|k=14..x.|
|00000100| 0d 00 82 14 e3 20 6f 70 | 74 25 3d 30 20 b8 20 32 |..... op|t%=0 . 2|
|00000110| 20 88 20 32 0d 00 8c 0d | 50 25 3d 63 69 72 63 6c | . 2....|P%=circl|
|00000120| 65 0d 00 96 0d 5b 4f 50 | 54 20 6f 70 74 25 0d 00 |e....[OP|T opt%..|
|00000130| 97 16 a4 66 6c 6f 61 74 | 28 22 4f 50 54 20 6f 70 |...float|("OPT op|
|00000140| 74 25 22 29 0d 00 a0 13 | 43 4d 50 20 20 20 72 61 |t%")....|CMP   ra|
|00000150| 64 69 75 73 2c 23 30 0d | 00 aa 3e 4d 4f 56 4c 45 |dius,#0.|..>MOVLE|
|00000160| 20 50 43 2c 6c 69 6e 6b | 20 20 20 20 20 20 20 20 | PC,link|        |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00000180| 20 72 65 74 75 72 6e 20 | 69 66 20 72 61 64 69 75 | return |if radiu|
|00000190| 73 20 2d 76 65 0d 00 b4 | 34 43 4d 50 20 20 20 72 |s -ve...|4CMP   r|
|000001a0| 61 64 69 75 73 2c 23 31 | 32 38 30 20 20 20 20 20 |adius,#1|280     |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 6f |        |     ; o|
|000001c0| 72 20 3e 3d 20 31 32 38 | 30 0d 00 be 11 4d 4f 56 |r >= 128|0....MOV|
|000001d0| 47 45 20 50 43 2c 6c 69 | 6e 6b 0d 00 c8 04 0d 00 |GE PC,li|nk......|
|000001e0| d2 44 a4 66 6c 6f 61 74 | 28 22 46 4c 54 53 20 20 |.D.float|("FLTS  |
|000001f0| 72 61 64 69 75 73 2c 72 | 61 64 69 75 73 22 29 20 |radius,r|adius") |
|00000200| 20 20 20 20 20 3b 20 72 | 61 64 69 75 73 20 74 6f |     ; r|adius to|
|00000210| 20 46 30 20 28 73 69 6e | 67 6c 65 20 70 72 65 63 | F0 (sin|gle prec|
|00000220| 2e 29 0d 00 dc 42 a4 66 | 6c 6f 61 74 28 22 53 51 |.)...B.f|loat("SQ|
|00000230| 54 45 20 20 46 31 2c 23 | 32 2e 30 22 29 20 20 20 |TE  F1,#|2.0")   |
|00000240| 20 20 20 20 20 20 20 20 | 20 3b 20 72 6f 6f 74 20 |        | ; root |
|00000250| 32 20 69 6e 20 46 31 20 | 28 65 78 74 2e 20 70 72 |2 in F1 |(ext. pr|
|00000260| 65 63 2e 29 0d 00 e6 4a | a4 66 6c 6f 61 74 28 22 |ec.)...J|.float("|
|00000270| 44 56 46 45 20 20 46 31 | 2c 72 61 64 69 75 73 2c |DVFE  F1|,radius,|
|00000280| 46 31 22 29 20 20 20 20 | 20 20 20 3b 20 78 6d 61 |F1")    |   ; xma|
|00000290| 78 20 3d 20 72 61 64 69 | 75 73 2f 72 6f 6f 74 20 |x = radi|us/root |
|000002a0| 32 20 28 65 78 74 2e 20 | 70 72 65 63 2e 29 0d 00 |2 (ext. |prec.)..|
|000002b0| f0 3c a4 66 6c 6f 61 74 | 28 22 46 49 58 53 50 20 |.<.float|("FIXSP |
|000002c0| 78 2c 46 31 22 29 20 20 | 20 20 20 20 20 20 20 20 |x,F1")  |        |
|000002d0| 20 20 20 20 20 3b 20 78 | 20 3d 20 78 6d 61 78 20 |     ; x| = xmax |
|000002e0| 28 72 6f 75 6e 64 20 75 | 70 29 0d 00 fa 46 a4 66 |(round u|p)...F.f|
|000002f0| 6c 6f 61 74 28 22 4d 55 | 46 44 20 20 72 73 71 2c |loat("MU|FD  rsq,|
|00000300| 72 61 64 69 75 73 2c 72 | 61 64 69 75 73 22 29 20 |radius,r|adius") |
|00000310| 20 3b 20 72 61 64 69 75 | 73 5e 32 20 69 6e 20 46 | ; radiu|s^2 in F|
|00000320| 30 20 28 64 6f 75 62 6c | 65 20 70 72 65 63 2e 29 |0 (doubl|e prec.)|
|00000330| 0d 01 04 14 4d 4f 56 20 | 20 20 78 63 65 6e 74 72 |....MOV |  xcentr|
|00000340| 65 2c 52 31 0d 01 0e 14 | 4d 4f 56 20 20 20 79 63 |e,R1....|MOV   yc|
|00000350| 65 6e 74 72 65 2c 52 32 | 0d 01 18 34 4d 4f 56 20 |entre,R2|...4MOV |
|00000360| 20 20 52 30 2c 23 36 39 | 20 20 20 20 20 20 20 20 |  R0,#69|        |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000380| 3b 20 70 6c 6f 74 20 70 | 6f 69 6e 74 0d 01 22 04 |; plot p|oint..".|
|00000390| 0d 01 2c 09 2e 6c 6f 6f | 70 0d 01 36 3f a4 66 6c |..,..loo|p..6?.fl|
|000003a0| 6f 61 74 28 22 46 4c 54 | 53 20 20 46 31 2c 78 22 |oat("FLT|S  F1,x"|
|000003b0| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)       |        |
|000003c0| 3b 20 78 20 74 6f 20 46 | 31 20 28 73 69 6e 67 6c |; x to F|1 (singl|
|000003d0| 65 20 70 72 65 63 2e 29 | 0d 01 40 3b a4 66 6c 6f |e prec.)|..@;.flo|
|000003e0| 61 74 28 22 4d 55 46 44 | 20 20 46 31 2c 46 31 2c |at("MUFD|  F1,F1,|
|000003f0| 46 31 22 29 20 20 20 20 | 20 20 20 20 20 20 20 3b |F1")    |       ;|
|00000400| 20 78 5e 32 20 28 64 6f | 75 62 6c 65 20 70 72 65 | x^2 (do|uble pre|
|00000410| 63 2e 29 0d 01 4a 47 a4 | 66 6c 6f 61 74 28 22 53 |c.)..JG.|float("S|
|00000420| 55 46 44 20 20 46 32 2c | 72 73 71 2c 46 31 22 29 |UFD  F2,|rsq,F1")|
|00000430| 20 20 20 20 20 20 20 20 | 20 20 3b 20 79 5e 32 20 |        |  ; y^2 |
|00000440| 3d 20 72 5e 32 20 2d 20 | 78 5e 32 20 28 64 6f 75 |= r^2 - |x^2 (dou|
|00000450| 62 6c 65 20 70 72 65 63 | 2e 29 0d 01 54 37 a4 66 |ble prec|.)..T7.f|
|00000460| 6c 6f 61 74 28 22 53 51 | 54 45 20 20 46 32 2c 46 |loat("SQ|TE  F2,F|
|00000470| 32 22 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |2")     |        |
|00000480| 20 3b 20 79 20 28 65 78 | 74 2e 20 70 72 65 63 2e | ; y (ex|t. prec.|
|00000490| 29 0d 01 5e 45 a4 66 6c | 6f 61 74 28 22 46 49 58 |)..^E.fl|oat("FIX|
|000004a0| 53 20 20 79 2c 46 32 22 | 29 20 20 20 20 20 20 20 |S  y,F2"|)       |
|000004b0| 20 20 20 20 20 20 20 20 | 3b 20 79 20 66 72 6f 6d |        |; y from|
|000004c0| 20 46 32 20 28 72 6f 75 | 6e 64 20 74 6f 20 6e 65 | F2 (rou|nd to ne|
|000004d0| 61 72 65 73 74 29 0d 01 | 68 19 41 44 44 20 20 20 |arest)..|h.ADD   |
|000004e0| 78 70 6c 6f 74 2c 78 63 | 65 6e 74 72 65 2c 78 0d |xplot,xc|entre,x.|
|000004f0| 01 72 41 41 44 44 20 20 | 20 79 70 6c 6f 74 2c 79 |.rAADD  | yplot,y|
|00000500| 63 65 6e 74 72 65 2c 79 | 20 20 20 20 20 20 20 20 |centre,y|        |
|00000510| 20 20 20 20 20 20 20 3b | 20 6f 66 66 73 65 74 20 |       ;| offset |
|00000520| 74 6f 20 73 63 72 65 65 | 6e 20 63 65 6e 74 72 65 |to scree|n centre|
|00000530| 0d 01 7c 32 53 57 49 20 | 20 20 22 4f 53 5f 50 6c |..|2SWI |  "OS_Pl|
|00000540| 6f 74 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ot"     |        |
|00000550| 20 20 20 20 20 20 20 20 | 3b 20 70 6c 6f 74 20 78 |        |; plot x|
|00000560| 2c 79 0d 01 86 19 53 55 | 42 20 20 20 79 70 6c 6f |,y....SU|B   yplo|
|00000570| 74 2c 79 63 65 6e 74 72 | 65 2c 79 0d 01 90 33 53 |t,ycentr|e,y...3S|
|00000580| 57 49 20 20 20 22 4f 53 | 5f 50 6c 6f 74 22 20 20 |WI   "OS|_Plot"  |
|00000590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005a0| 20 20 20 3b 20 70 6c 6f | 74 20 78 2c 2d 79 0d 01 |   ; plo|t x,-y..|
|000005b0| 9a 19 53 55 42 20 20 20 | 78 70 6c 6f 74 2c 78 63 |..SUB   |xplot,xc|
|000005c0| 65 6e 74 72 65 2c 78 0d | 01 a4 34 53 57 49 20 20 |entre,x.|..4SWI  |
|000005d0| 20 22 4f 53 5f 50 6c 6f | 74 22 20 20 20 20 20 20 | "OS_Plo|t"      |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|000005f0| 20 70 6c 6f 74 20 2d 78 | 2c 2d 79 0d 01 ae 19 41 | plot -x|,-y....A|
|00000600| 44 44 20 20 20 79 70 6c | 6f 74 2c 79 63 65 6e 74 |DD   ypl|ot,ycent|
|00000610| 72 65 2c 79 0d 01 b8 33 | 53 57 49 20 20 20 22 4f |re,y...3|SWI   "O|
|00000620| 53 5f 50 6c 6f 74 22 20 | 20 20 20 20 20 20 20 20 |S_Plot" |        |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 70 6c |        |    ; pl|
|00000640| 6f 74 20 2d 78 2c 79 0d | 01 c2 19 41 44 44 20 20 |ot -x,y.|...ADD  |
|00000650| 20 78 70 6c 6f 74 2c 78 | 63 65 6e 74 72 65 2c 79 | xplot,x|centre,y|
|00000660| 0d 01 cc 19 41 44 44 20 | 20 20 79 70 6c 6f 74 2c |....ADD |  yplot,|
|00000670| 79 63 65 6e 74 72 65 2c | 78 0d 01 d6 32 53 57 49 |ycentre,|x...2SWI|
|00000680| 20 20 20 22 4f 53 5f 50 | 6c 6f 74 22 20 20 20 20 |   "OS_P|lot"    |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006a0| 20 3b 20 70 6c 6f 74 20 | 79 2c 78 0d 01 e0 19 53 | ; plot |y,x....S|
|000006b0| 55 42 20 20 20 79 70 6c | 6f 74 2c 79 63 65 6e 74 |UB   ypl|ot,ycent|
|000006c0| 72 65 2c 78 0d 01 ea 33 | 53 57 49 20 20 20 22 4f |re,x...3|SWI   "O|
|000006d0| 53 5f 50 6c 6f 74 22 20 | 20 20 20 20 20 20 20 20 |S_Plot" |        |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 70 6c |        |    ; pl|
|000006f0| 6f 74 20 79 2c 2d 78 0d | 01 f4 19 53 55 42 20 20 |ot y,-x.|...SUB  |
|00000700| 20 78 70 6c 6f 74 2c 78 | 63 65 6e 74 72 65 2c 79 | xplot,x|centre,y|
|00000710| 0d 01 fe 34 53 57 49 20 | 20 20 22 4f 53 5f 50 6c |...4SWI |  "OS_Pl|
|00000720| 6f 74 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ot"     |        |
|00000730| 20 20 20 20 20 20 20 20 | 3b 20 70 6c 6f 74 20 2d |        |; plot -|
|00000740| 79 2c 2d 78 0d 02 08 19 | 41 44 44 20 20 20 79 70 |y,-x....|ADD   yp|
|00000750| 6c 6f 74 2c 79 63 65 6e | 74 72 65 2c 78 0d 02 12 |lot,ycen|tre,x...|
|00000760| 33 53 57 49 20 20 20 22 | 4f 53 5f 50 6c 6f 74 22 |3SWI   "|OS_Plot"|
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000780| 20 20 20 20 20 3b 20 70 | 6c 6f 74 20 2d 79 2c 78 |     ; p|lot -y,x|
|00000790| 0d 02 1c 3d 53 55 42 53 | 20 20 78 2c 78 2c 23 31 |...=SUBS|  x,x,#1|
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007b0| 20 20 20 20 20 20 20 20 | 3b 20 78 2d 3d 31 20 28 |        |; x-=1 (|
|000007c0| 61 6e 64 20 73 65 74 20 | 66 6c 61 67 29 0d 02 26 |and set |flag)..&|
|000007d0| 0e 42 4e 45 20 20 20 6c | 6f 6f 70 0d 02 30 3b 4d |.BNE   l|oop..0;M|
|000007e0| 4f 56 20 20 20 50 43 2c | 6c 69 6e 6b 20 20 20 20 |OV   PC,|link    |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000800| 20 20 20 3b 20 66 69 6e | 69 73 68 65 64 20 77 68 |   ; fin|ished wh|
|00000810| 65 6e 20 78 3d 30 0d 02 | 3a 05 5d 0d 02 44 05 ed |en x=0..|:.]..D..|
|00000820| 0d 02 4e 04 0d 02 58 05 | db 0d 02 62 18 41 25 3d |..N...X.|...b.A%=|
|00000830| 34 30 30 3a 42 25 3d 36 | 34 30 3a 43 25 3d 35 31 |400:B%=6|40:C%=51|
|00000840| 32 0d 02 6c 0c d6 20 63 | 69 72 63 6c 65 0d 02 76 |2..l.. c|ircle..v|
|00000850| 05 e0 0d ff             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+